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Declarations 

Reaazurit Data 

Read/Write Data 

RMS-32 Data Structures 
Main Program 


Systen Sery ice Exception Handler 


S Error Handler 
CTRL/C Handler 
Error Exit 
Exit Handler 
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SEP-19 UETP.SRCJUETNETSOO.MAR; 1 
TITLE UF TNE T380 VAX/VMS UETP checker for DECnet counters 
v04-000' 

1 

1 
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1 
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1 
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4 

4 

4 

4 

4 
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- IDENT 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 7 
. » 
® ® 
* * 
® ’ 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRF.’. * 
# J 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
® ® 
® ® 
* * 
® ® 
® ® 
Ea ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


-ARRRARAAAAAAAALAAARLAAALALASELALESLALARA ASR E ASE ALES ESLER ALAR E AAAS ASA A ARERR ADS 


+4 

; FACILITY: 

: This sotue will be distributed with VAX/VMS under the CSYSTEST] 
account. 


; ABSTRACT: 
; This program will report all error sodteoe tng non-zero node and 
circuit counters for all nodes and circuits indicated in the 
UETININET.DAT file. If no counters indicate error then the node 
name and circuit name will be reported with a success message. 


; ENVIRONMENT: 
: This eregres will run in user access mode, with interrupts enabled 
at all times. This program requires the following privileges and 
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NE TMBX 
; AUTHOR: Larry D. Jones, CREATION DATE: November, 1981 
; MODIFIED BY: 
v03-004 RNHOOO02 Richard N. Holstein, 27-Mar-1983 


ake use of new UETP error pyssenes Turn off System Service 
failure exceptions when colt ing LSINITIALIZE; we get snagged 
on a logical name that's used for debugging pruposes only. Fix 


: quotas: 


miscellaneous bugs in System Service error handling. 
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“SEP-19 UVETP.SRC GETNE S00" MAR; 1 
Change error message wording when checking NICE messages. 


v03-002 L010002 Larry D. Jones, 24-Jan-1983 
Modified to conform to area network format. 


v03-001 LDJ0001 rry D. Jones 24-Dec-1981 
Fixed missing neta name access "violation bug. 
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0 Pa 
SEP=1984 04:25 UETP.SR ETNET a MAR; 1 He 3) 
; -SBTTL Declarations 
: INCLUDE FILES: 


.LIBRARY /SHRLIB$:NMALIBRY.MLB/ 


3; MACROS: 
SCHF DEF 3; Condition handler frame definitions 
SDIBDEF ; Device information block definitions 
SNMADEF 3; DECnet definitions 
SSHRDEF ; Shared messages 
$SSTSDEF § petus return 
SUETPDEF 3; UETP 


.MACRO TBL_ENT ENT, VALUE,STRING 
“WORD <ENT@15>! VALUE 
“ADDRESS PC2... 


eo . 
o2PC2... 
SASCIC” "/STRING/ 
.ENOM = TBL_ENT- 
: EQUATED SYMBOLS: 


: Facility ny rumber definitions: 
FACILITY = 1 


; mR nessege definitions: 


Oo 
PAN OOD NA UNE WIN $$ 9 ODNAUE WN O OO NAME WO OD NAME WR OOONAOUS WN OW 
. Be 


ETP ETPS_FA CILITYaSTS$v_ FAC_NO ; Define the UETP facility code 
UETP$_ABENDD = UETP!SHRS_ABENDD ; Define the UETP message codes 
UETP$_BEGIND = UETP!SHRS$_BEGIND 
UETPS_ENDEDD = UETP!SHRS$_ENDEDD 
UETPS_OPENIN = ETP! SHRS _OPENIN 
UETPS_TEXT = UETP!SHRS_TEXT 

3 Internal flag bits... 
SHRT_RPRIV = 0 ; Set if short report format desired 
CONTROL_CV = 1 ; Set if CT8L/C AST received 
CIR_CNT_BADV = § : Set if a bac circuit counter was detected 
NOD-CNT-BADV = ; Set if a bad node counter was detected 
BEGIN_MSGV = 6 ; Set when "begin’’ msg has been output 
; ..and q goncespon ding masks: 
SHRT_R = TA@SHRT_RPRTV 
CONTROL. M == 1aCONTROL_ 
CIR_CNT_BADM = 1a@CIR_CNT_BADV 
NOD CNT _BADM = 1@NOD~ CNT BADV 
BEGIN_MSGH == LOBE GIN_AS 
BIT/7M = *X 
3 neta tbh 
TEXT BUFFER = 132 :; Internal text buffer size 
= 9 3; Node ID constant 
at} = : Circuit 1D constant 


K 14 
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Q000001A 0000 125 TBL_SIZE = 26 ; Network counter table size 


rae, 


L 14 
UVETNETSOO VAX/VMS UETP checker for DECnet counters 16-SEP-1984 01:29: AX/VMS Macro Vv04-00 
VB u~600 Read-Only Data ‘ misery 7 83:33:95 YOETP SRCIUETNE TS00" MAR; 1 


Page (3) 


L Read-Only Data 
0000 T RODATA,NOEXE , NOWRT , PAGE 
ACNT_NAME : ; Process name on exit 


53 45 54 53 59 53 snvopencd srecnia * 4 eASCID /SYSTEST/ 


TSTNAM: 3; This test name 


54 45 4E 54 45 55 ee »ASCID /UETNETSOO/ 


NO_RMS_AST_TABLE: ; List of errors for which.. 


7 
159 
130 
OOE ni 
OF 1 3 
OF 1 
OF 134 
001 
00 ] 5 
BONO 8008 $8 1 5 . LONG MS$_BLN + ..eRMS cannot deliver an AST... 
00000000" 0024 1 3 ONG RMS$_BUSY ; ...even if one has an ERR= arg 
00000000' 88 ya LONG RMS$_CDA 3 Note that we can search table.. 
00000000° 002C 140 LONG 3 «eeVia MATCHC since <31:16>.. 
00000000° 0030 141 -LONG RMS$-RAB > ..epattern can't be in <15:0>- 
00000014 ite 145 NRAT_LENGTH = .-NO_RAS_AST_TABLE 
0034 144 MODE: ; Run mode logical name 
45 44 4F 4D 0000003C'010E0000' Oa78 102 -ASCID /MODE/ 
tints 147 TTNAME_ROPTR: 
0000 003F 0040 ° 148 -WORD 63 
0000000a' 0044 149 “ADDRESS THAME 
0048 151 LOGEXT: ; Log file extention 
47 4F 4C 2E 0048 136 ASCII /.LOG/ 
004C 15 
004C 154 
004C 155 CNTRLCMSG: 
65 74 72 6F 62 41 00000054'010E0000" 004C 156 -ASCID \Aborted via a user CTRL/C\ 
72 65 73 75 20 61 20 61 69 76 20 64 OO0SA 
43 2F 4C 52 54 43 20 0066 
006D 157 
006D 158 
0060 159 FILE: : Fills im RMS_ERR_STRING 
65 6C 69 66 00000075'010E0000' 3598 199 -ASCID /file/ 
0079 196 RECORD: ; Fills im RMS_ERR_STRING 
64 72 6F 63 65 72 00000081'010E0000' it 197 -ASCID /record/ 
41 21 20 53 4D 52 0000008F "010 fF acct s MT RTC wie 
° . error in e 
6 30 && 09 30 78 995 63 $0 38 g 
1 21 20 65 6C 0A1 
OA 167 
OAS 168 NMLINIT_ERR: ee 
20 Le} ¢f i 72 45 99090080" 91069000" A 169 e-ASCID /Error during network communications initialization./ 
6F 77 746 of ry 6 § $3 8 
61 63 $9 oF D 3p er §3 $8 C 
61 69 74 69 6E 69 20 73 6E 6F 7 CE 
2E 6E 6F 69 74 61 7A $9 6c of 170 
72 20 45 43 49 4E 000000EB'010E000 : 1pp ERRAMSG_CIRe NICE de !XB ‘AC. / 
‘ response error code !XB, error message: !AC. 
GF 93 $3 68 50 G8 Pe ee Ee 90 FS ee bor . . 
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7 
$F 63 20 67 of -ASCIC /arriving congestion loss/ 


6F 6C 20 


C4 1 20 65 64 6F 7 F 
UORAOP RRA R RE He 
3606S ss 
11C =©174 COUNTER_MSG: 
oA : ‘AC !AC ! ’ = !UL. 
41 21 20 43 41 21 00000124'010E0000° O11C 175 SCID /!AC !AC !AC !AC HAC = !UL./ 
41 21 20 43 41 21 43 41 21 8 6 12A 
2E 4C 21 20 35D 4 } : 1? 
13€ 159 NODE: 
20 65 64 6F 4E 89" : —E 178 -ASCIC /Node / 
126 179 
144 139 CIRCUIT: 
eA rcuit 
74 69 75 63 72 69 43 8 . 17g 181 SCIC /Circuit/ 
14C 183 
14C =6183 TO: 
6F 74 00" 014C 184 -ASCIC /to/ 
02 QO14C 
O14F 185 
O14F 196 THRU: 
72 65 76 6F 00" O14F 18 eASCIC /over/ 
04 O14F 
0154 is 
0154 189 CASE_FAILED: 
6F 63 65 72 of 55 0000015C'010E0000° 0154 190 -ASCID /Unrecognized counter in NICE message./ 
74 6E 75 6F 635 20 64 65 7A 69 6E 67 0162 
6D 20 45 43 49 4E 20 of 69 69 72 65 O16E 
2E 65 67 61 73 65 ire 191 
181 136 CIRCUIT_OK: 
69 75 63 72 69 43 B08 189 "91 059000" 181 «19 «ASCID /Circuit !AC to !AC OK./ 
43 41 21 20 6F 74 20 4 ot i cf 8 B13e 
19F 194 
19F 195 ZERO: 
00000000 019F 196 -LONG 0 
1A3. 197 CNTR_TBL: 
O0001A3 OIA 138 sia. © a 
000023F O1A 19 «=. +<TBL_SIZE*6> 
F 200 TBL_END: 
0000023F F 1 PC2... =. 
r § -LIST MEB 
000001A ; TBL_ENT CIR,NMASC_CTCIR_ACL,<arriving congestion loss> 
= eee 
3 A3 ~WORD = <CIR@15>!NMASC_CTCIR_ACL 
i § . 1ag eADDRESS PC2... 
69 76 69 7 1 23F 
6F 69 4 3g 6 $7 38 
1 F 
4 -NLIST MEB 
5 TBL_ENT CIR, NMASC_CTCIR_CRL.<corruption loss> 
8 $ TBL_ENT CIR,NMASC_CTCIR_TCL,<transit congestion loss> 
TBL_ENT CIR, NMASC_CTCIR_LDN,<Line down> 
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- Read-Only Dat 223: . : 
vba 500 d-Onl $ ~SEP- =1382 8 32 5 LOETP SRC IGETNET S00" MAR; 1 . (3) 
8A 8 TBL_ENT CIR,NMASC_CTCIR_IFL,<initialization failure> 
Al TBLLENT CIR,NMASC_CTCIR_DEI,<data errors inbound> 
B5 19 TBLLENT CIR,NMASC_CTCIR_DEO,<data errors outbound> 
CA 1 TBL-ENT CIR,NMASC_CTCIR_RRT,<remote reply timeouts> 
3 i TBLLENT CIR,NMASC_CTCIR_LRT,<Llocal rep ¥ timeouts> 
F 1 TBLLENT CIR, NMASC_CTCIR_ WBE <(emore byt er errors> 
OA 14 TBLTENT CIR,NMASC_CTCIR_LBE,<local buffer errors> 
4 15 TBLTENT CIR,NMASC_CTCIR_SLT,<selection timeouts> 
18 TBL_ENT CIR,NMASC_CTCIR_RPE,<remote process errors> 
47 1 TBL_ENT ah ere 9 353 LPE.<Local process errors> 
36 18 TBL-ENT CIR,NMASC_CTCIR_ “LIR.< locally initiated resets> 
7? 19 TBL_ENT ci RNBASE CTC IR. RIR,<remotely initiated resets> 
8F 0 TBL-ENT CIR,NMASC_CTCIR_NIR.<network initiated resets> 
03A8 1 TBL_ENT NOD,NMASC_CTNOD_RTO,<response timeouts> 
b3aA ¢ TBL-ENT NOD ,NMASC_CTNOD_RSE,<received connect resource errors> 
Hg TBL_ENT NOD NAASC CTNOD-APL,<aged packet loss> 
8 FS 4 TBL_ENT o> Se MASC_CTNOD_NUL,<node unreachable packet loss> 
409 5 TBL_ENT NOD, NMASC ~CTNOD— “NOL . <node out of renee, packet loss> 
beg! 6 TBL-ENT NOD.NMASC— “CTNOD_OPL,<oversized packet loss> 
0430 227 TBL_ENT NO D-NMASC “CTNOD_PFE,<packet format error> 
0451 $55 TBL_ENT NOD,NMASC_CTNOD_ “RUL.<partial routing update loss> 
046D 229 TBL_ENT NOD, ;NMASC— “CTNOD_VER,<verification reject> 


vlssle™ 
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Read/Write Data -$ 
4 .SBTTL Read/Write D 
0000 "BEECT QWDATA WRT .NO 
4 TTCHAN: 
0000 5 0 
0000 0008! TOMA RES TTNAME.LEN.O 
tatatat § “ADDRESS TTNAME 
OA 240 TTNAME: 
Bd000008 b0%5 543 HTNARE_LEN Sc oTTNAME 
= e* 
Boob a8 “8 BKB. o-TTHAME CEN 
049 245 
049 46 FLAG: 
0000 0049 24 .wORD 0 
048 48 
48 49 DEV: 
00000074 0048 250 .LONG DIBSK_LENGTH 
00000053" 004F 251 “ADDRESS DEVBOF 
005 38 DEVBUF : 
000000¢7 005 33 .BLKB DIBSK_LENGTH 
b0¢7 55 FAO_BUF : 
0000 0084 00C¢7 36 .WORD _TEXT_BUFFER,O 
00000007" 00cB of [ADDRESS BUFFER 
OOCE 59 BUFFER_PTR: 
0000 0084 OOCF 260 .WORD TEXT_BUFFER,O 
00000007" Ops 61 “ADDRESS BUFFER 
O07 86 BUFFER: 
00000158 007 64 .BLKB =‘ TEXT_BUFFER 
15B 266 ERROR_COUNT: 
00000000 (158 267 .LONG 0 
15F ©6268 
15F $9 STATUS: 
00000000 13 20 .LONG 0 
i a 
16 73 MSG_BLOCK: 
00000167 16 a .BLKB 4 
167 0 EXIT_DESC: 
0 167 7 . 0 
c : £8 “ADDRESS EXIT_HANDLER 
ve 175 9 “ADDRESS STATUS 
17 
177 : ARG_COUNT: 
00000000 a4 ; .LONG 0 
178 5 AREA_ADR_DESC: 
' O17F - ADDRESS 
$o009800 ; 0 


AX/VMS Macro V04-00 Page 8 UE: 
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Channel associated with ctrl. term. 


Miscellaneous flag bits 
(See Equated Symbols for definitions) 


Device Information Block 

FAO output string descriptor 

Fake .ASCID buffer for misc. strings 
A word for Length, a word for desc. 


FAO output and other misc. buffer 


Cumulative error count at runtime 


Status value on program exit 


Auxiliary SGETMSG info 


Exit handler descriptor 


Argument counter used by ERROR_EXIT 


———eEeEeEeEeEeEeEeEeEe—eEeEeEe—EeE——EeE———EE —— 
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Read/Write Data -SEP=-1984 04: UETP.SRCJUETNETSOO.MAR; 1 (4) 
§ NODE_ADR_DESC: 
8888888 aBtkess 
° ADDRESS 0 
NICE_MSG: 
46 ‘ NICE_SIZE 
0000019E' «ADDRESS NICE_MESSAGE 
NICE1_MSG: 
4444 6 »LONG NICE1_SIZE 
Q00001A -ADDRESS NICET_MESSAGE 
-ALIGN LONG 
AREA_WRD: ; Network area number 
0000 «WORD 0 


000 
00000005 
14 
33 
00000002 


000001AF 


00000186 
00000189 
000001BE 


00000107 


a kh oh th 
PPrPrr rrr POOOOOOOOOOOOOOO OOOO OMdocoCDCDCNCD = 
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PAR S$ OOD NAMES UI 2 SO OD NAN E WIN 8 ONAN EWN 0 OD NAUE WN OO ONAUE WO 


BEEF PANINI WIWINIGIPIPIPINPIDIPIDINID 2 2 I MODOC OOOCOOCOCOCOWOOOOOVOWO 


MMM OODCOOO 7 HAWN SE WWW 2 BAMMMMMMMMMMOOOWDNWwWww4OOW 


a a a a a a a a a a a a a 
wOwwwwwwwIOr>r>r>rrrrrrrr>r 


CSoQOooooooo 


eee Warning *** 
The following section of data must remain contiguous. 


NICE packets used to get the counters. 


NICE_MESSAGE : 

-BYTE NMASC_FNC Read information function code F 
“BYTE NMAS$C “OPIA COUaNMASY.. opt_ INF ; OPTION = Node, Counters, Volatile 
-BYTE NMASC_ENT_NOD 3"Node format = node address 


-WORD 0 
NICE_SIZE = .-NICE_MESSAGE 


NICE1 =RESSAGE: 
-BYTE NMASC_F : Read information function code 
“BYTE <<NMASC “OPINF COUANMASV. irr INF >!= 
<NMASC— OPTION = Circuit, Counters, Volatile 
NICE1 size = emi ceT MESSAGE 


CIRC_NAME : 
-BLKB 10 


> tee End of warning *** 


NODE _NAME : 
.BLKB 


7 
AREA_ADR: 
-BLKB 3 
NODE _ADR: 
-BLKB 5 
NAME : 
-BLKB 25 


UETNETSOO 
Vou"000 
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Read/Write Data 


00000000 


00000000 


00000000 


00000000 


00000000 0 


ANNI OOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MmMmMmMmMmmMmooOoVVTVVTVTCSO 


0 
49 
49 TYPE 
; «LONG 0 
TYPE1 
i «LONG 0 
3g TYPE2 
28 LONG 0 
58 END_ADR 
59 ONG 0 


1 
4 


135357 
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B 
B 
C 
¢ 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
6 
0 
" 
" 
0 
0 
0 


"$RAB- 
F 


< 
o 
“ow 

nuun 


<UETNETSOO.LOG>,= 
CR,=- 


Be 04:85:57 


RMS-32 Data Structures 
LONG 


. 
e 


; Allocate FAB for UETININET 


; Allocate RAB for UETININET 


6D O4F7°CF 


7E 

OOOF "CF 

02 

00741039 8F 
00000000" Gr 04 
0049'°CF 0040 8F 


0006"CF  QOOA'CF 
00000000 ° 8F 39 
QOOOA'CF 1B 

D0 

Q002'CF 04 
0006' CF ee 


00°8F 0057°CF 
45 


ocor'er 


0748328 er 


00000000 ' GF 


FW OOONOUE 


> OO NNN NNOOMUIUIUIE SWI) | SODOOCOOOCOO 
UIE SUM MM Minar IO OVNODOOOr rOwo- 


OOODOOCOOCOSCOOSOOOSOOOOOoSoO: 
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-OPp—0o-- 0 9 


=—Onn—\w—s rm 


00000000 ' GF 98 


Pe oe at ot at ot ot ot ot MUU MAUAAAMAMUMARAAMAAMMAMMU MM ee ee ee ee 
‘000 
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-SBTTL Main Pcoarae 
~-PSECT UETNETSOU,EXE,NOWRT,PAGE 


~DEFAULT DISPLACEMENT , WORD 
»ENTRY UETNETSOO, *M<> 


MOVAL SSERROR, (FP) 
SSETSFM_S ENBFLG = #1 
SDCLEXH-S DESBLK = EXIT_DESC 
SCREATE™ FAB = LOG_F AB - 

ERR = RMS"ERROR 
SCONNECT RAB = LOG_RAB,- 

ERR = RMS~ERROR 
SOPEN FAB = INI_FAB,- 

ERR = RMS ERROR 
SCONNECT RAB = INT_R 

_ERR = RMS ~ERROR 


C 
PUSHAL TSTNAM 


Pu 
PUSHL #UETPS BEGIND en _succéss : 


CALLS #4,G6°L TBSSIGNA 
BISW2  #BEGIN_MSGM kG 
SSETPRN_S PRENKR = TSTNAM 


10$: 


Page 


Entry mask 


3; Declare exception handler 
3 Enable system service failure mode 
; Declare an exit handler 


3; Create the log file 
Connect the RAB 
3; Open the UETININET.DAT file 


; Connect the RAB 
; Set the time stamp flag 
: Set the test name 
sh the argument count 

Set the message code 
Print the startup message 

Set flag so we don't type it twice 

; Set the process name 


STRNLOG_S LOGNAM = TTNAME_RWPTR,=- 
RSL ay = TTNAME Rupa. . 


RSLBUF = TTNAME_ROPT 
MOVAL TINARE THAR yueThes 


CMPL 0,#SS$_NO 
BEQL BOS 

CMPB 0s #*X1B, TTNAME 
BNEQ 10$ 


SUBW #4, TTNAME_RWPTR 
ADDL #4, TTNAME ~RWPTR+4 
BRB 10$ 


20$: 


; Translate the logical name 

3 Undo possible previous PPF fixup 

; ot. reached the end yet? 

; Br es 

3 a° this a@ process permanent file? 

; Br 

3; Remove RMS overhead from PPF name... 


: Now it’ s safe to retranslate 


SGETDEV_S DEVNAM = = TINAME _ RWPTR,= aod 

Cpe VBUF +D1B$B _DEVCLASS, mis am Is this s terninel? 
no 

SASSIGN_S DEVNAM = TTNAME . RWPTR,- ; Set up for CTRL/C AST's 


$Q10W_S a, 


CHAN 

0$ Ona: 
P AST 

PUSHAL TSTNAR 
PU 


its device type 


nable CTRL/C AST's... 
iosm? CTRLCAST,- 


: ---and tell the user... 


PUSHL fyeres ABORT C!STSSK success"; ; «.ehow to abort gracefully... 


G*LTBSSIG 
30$: 
SSETSFM_S ENBFLG = #0 
cathe LLS “#0,G*NMLSINITIALIZE 
SSETSFM 5 cores = #1 
POPL “STATUS 


; While initializing net comm stuff... 


3; «--don't die for lack of logical names 


ee ee 


SH 
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V64~500 Main Program et 7 4:33:99 LUETP. SRC GETNETSOO MAR: 1 . (6) 
11 OE ce E8 013C 445 BLBS STATUS ,LOOP ; BR if we initialized correctly 
OAS'CF DF 014 446 PUSHAL NMLINIT_ERR 
1 DD O14 44 PUSHL 1 
00741132 8F DD 014 ret PUSHL M#UETPS_TEXT!STSS$K_ERROR 
g0 140 44 PUSHL #4 
0561 31 14 430 BRW ERROR_EXIT 
135 452 ; Fall into main processing loop. 
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v04-000 Main Program “SEP=1984 04:25: UETP.SRCJUETNETSOO.MAR; 1 (7) 
1 454 LOOP: 
1 455 $GET RAB = INI_RAB,- ; Get a record 
1 4 : ERR = RMS-ERROR 
00D7'CF 20444E45 BF } 191 2 Haas Foe ene / BUFFER 3 ah = file? 
: no 
0188 i 18¢ 639 108 BRW SUC_EXIT ; Elise end 
sand 20 3A \¢f 461 LOCC #*A/_/, INI_RAB+RABSW_RSZ,- 
Sora 174 126 UFFER ; Find the end of the circuit name 
56 51 Q00000D7'"8F ¢3 0177 46 SUBL3 M#BUFFER,R1,R6 3; Get circuit name size 
O1A ff 56 90 O17F 464 MOVB »CIRC_NAME 3 Set circuit name Length 
3, 1 9} 4 184 465 ADDL oR1,R7 ; Set start of node address 
OiA6'CE OUD7'CF 56 : 188 466 MOVCS R6,BUFFER,CIRC_NAME+1 ; Save circuit name 
59 O25E'CF 56 AZ 0190 46 SUBW RG, INI_RAB+RABSW_RSZ,R9 : Get remaining string Length 
59 59 3C 0196 468 MOVZWL RO 3; Clean the high word out 
9 iH 199 469 DECW R9 ; Get back to end of string 
67 59 E 7 bs 409 boxe #*A/./,R9,(R7) 3 preg maar present? 
: no 
56 51 ; C 1A1 $6 SUBL R7,R1,R6 ; Get area adr length 
59 56 C2 OAS 47 SUBL R6,R9 3; Update remaining string Length to... 
59 D7 O1A8 474 DECL 3 ..-node number and beyond 
O1B6'CF 56 90 QIAA 475 MOVB R6,AREA_ADR ; Set area adr length 
58 51 DO OIAF 476 MOVL . 3; Save end of string address 
01B7"CF_ 67 56 28 31B¢ 477 MOVC3 R6,(R7),AREA_ADR+1 ; Save area adr ; 
017B'CF 28 9B OQ1B 478 MOVZBW R6,AREA_ADR_BESC ; Init area address descriptor 
017F 'CF 6 DE 01BD 479 MOVAL (R?) ,AREA_ADR_DESC+4 
02 oD O1C2 480 PUSHL #2 ; Two byte number returned 
O19C'CF DF O1C&4 481 PUSHAL AREA_WRD ; Address of output 
C:/B'CF DF 01C8 rt PUSHAL AREA _ADR_DESC ; Address of input 
000NNOG0' GF 93 FB pice ‘ CALLS #3,G*OTSSCVT_TI_L ; Make the string a word value 
yn) eS 0103 484 i ADDL3 = R1,#1,R7 : Update the node address pointer 
67 59 0 3A 0107 4&4 $ LOCC #*A/ /,R9,(R7) ; Find node adr end 
7. 1 7 C3 0108 4 SUBL3 Ri, :; Get node adr Length 
O1B9"CF 56 90 ODF 488 Ove R6,NODE_ADR ; Set node adr Length 
58 51 00 O1E4 489 MOVL ° 3; Save end of string address 
O1IBA'CF 67 56 8 Q1E7 490 MOVC3 R6,(R7),NODE_ADR+1 3; Save node adr 
O183'CF 56 i—ED 491 MOVZBW R6,NODE_ADR_BESC 3 Init node address descriptor 
0187'CF 67 ODE Fe 49 MOVAL (R?),NOBDE_ADR_DESC+4 
02 DD OF 49 PUSHL #2 ; Two byte number returned 
1A1°CF DF O1F9 494 PUSHAL NODE_WRD 3; Address of output 
183°CF DF O1FD 495 PUSHAL NODE ADR_DESC 3; Address of input 
00000000'GF 03 F 01 49 CALLS #3,G*OTSSCVT_TILL ; Make the string a word value 
O1A1"CF 06 OA a or 3 F 98 49 INSV AREA_WRD, #10 #6,NODE_WRD ; Save the area number in the node adr 
56 58 000000D7°SF CC 11 49 SUBL3 #BUFFER,RB,RO : Calculate string size 
QIAF'CE 94 19 49 CLRB DE_NAME ; Clean out node name size 
56 O25E°CF 5 A 1 0 SUBW3 =R6, INI_RAB+RABSW_RSZ,R6 
1 1 1 BEQL ; BR if no node name : 
OIAF'CF 656 4 § MOVB R6,NODE _NAME 3; Only use one byte worth of node name lengt 
our’ 4 A ? DECB NODE _NARE ; Correct node name size 
58 51 1 1 6 5 ADOL #1,R1,R8 : Set start of node name 
01B0°CF 68 6 a 4 : ove RG, (RB) .NODE_NAME*1 > Save node name 
C 25$ 
5B 4 C : CLRL R11 ; Init size storage 
53 O1BO'CF ODE E 10 MOVAL NODE_NAME+1,R3 ; Set initial destination address 


Page 
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017B'CF 3 

11 
5B 0°78" 4 
0187'CF 17B' CF 
ga” bt 


5 aa * 
AF CF B 


01 
01BA'CF shine 


0 
4 04: UETP.SRC GETNET $00. MAR; 1 
AREA_ADR_DESC ; dg foere. an area number? 


AREA. ADR_DESC,R11 ; et area string Length 
1 ; Add one for the area decimal point 
rey ¥, -ADR_DESC ,AREA_ADR+1 

#°A/77,RT1, (RS) ; Save area number and decimal point 


NODE poe = pest. R11 ; Add node number size 
R11,NODE- NAME ; Store the size 
Nope, ADR “Dest, NODE_ADR?*1.= 


Noe moo— 
=] Oy 


; Save node number 
wick yi ; Get the node counters 


Woe SRNL SPROCESS NICE 
#CiR_ CNT_BADV,FLAG,40$ ; BR if no node counter data 
#NOD-CNT_BADM,FLAG ; Save a copy of the flag 


#NICE1 2a. NICE1_MSG ; calcylate NICE packet size 
CIRC_ NAR ME,NICE1_MSG ; Add in circuit name size 
NICE-R OUTING. ; Get the circuit counters 


cE ous 

WD G*RMLSPROCESS_NICE 

onde _CNT Baby f FLAG,60$ ; BR if counters found bad 
#CIR =CNT BADV,FLAG,60$ ; BR if counters found bad 
NODE_N BAPE. ; Save the node name address 
NODE“NAME” ; aaything there? 

5 ; BR if yes else... 
NODE_ADR, TYPE ; «--use the node address 


CTRSTR = CIRCUIT x. - ; Print the circuit OK message 
PAO, BUR Se” 
= e 
#NARE ,- 
= TYPE 
PTR : Push the string address 
Push the parameter counter 
Herr TEXT !STSSK_ success ; Push signal name 
#3,G*LTBS$S! ; Brint circuit OK 


LOOP ; Do the next record 


324° 


1 

00000000 ° GF 

05 0049'°CF 
0049" 


PmnoVo 
o-wn™ 


0193°CF 


09008008 


01DB'CF 


=n owon OH 


COonanaCCoG o 
>> 
oOo "Th 
o-OOMMmnOVO@eO 
MOVMIMSfOnNnNOO 


O1DB'CF 018 


OOCF 'CF 


00741131 8F 
00000000'GF 03 


FESE 


MWHRMMMOAOOOOOWWD \ PD S OOO WW IIIA AAPM 
—— S SPM 3 SS DOL ON PONTO DLOOODL ">r SP VNOMO~IW 


WAS ERE REESE RWWWWIIInononononononononond 2 


ROOD NAM EWN O OOO NAME WN O OO NOU EWN OOONOU SE Win 


CGOCOOCOCOOSOOCOSOSSOSGOSOOSOOOSOOCOOOOOOOOOoO 
DPVPVIVIVIUIULUSVSVUSUSVIVIVSUSUIUTUS USUI USVI SVSUIUSUS US SIVOS USVI VOSS USUI IOS IOSD 


PROPIPOPOPOPYNIPYNINPIPONINY NINN Po PoPofnonyd 
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Main Program EP-1984 UETP.SRCJUETNETSOO.MAR; 1 
F4 23 SUC_EXIT: 
00000000 ' GF 68 FB F4 4 CALLS #0,G*NMLSTERMINATE 3; Terminate the NML session 
DD FB 55 PUSHL #0 : Set the time flag 
OO00F * ff OF FD 2$ PUSHAL _ i~. the test name 
DD 030% 55 PUSHL arg count 
00741081 Bf DD 0303 228 PUSHL ative ENDEDD! STSS$K_ succkss : signal name 
0 000 ' GF 4 FB 8 09 55 CALLS » | NAL teut $ she message 
O1SF'CF 10000000 ' 8F ) 10 289 MOVL et NORMAL! STSSM_ INHIB Ase STATUS Set successful exit status 
0319 61 SEXIT S STATOS : Exit wit’ the status 


AAAWOOOOAOOAOOM 
ee a es ee 
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checker for DECnet counters 1 mists v1 1:92:08 AX/VMS Macro ns 
5: UETP.SRCJUETNETSOO.MAR; 1 (9) 


vou~600 NIC =SEP=1984 04: 


<= 
zz 


WANNA AI NIN ANINIAN. AANA NAAN OOM 
POPOPOPIPOPIPIPOPIPIPINIMPIPIPIPIPIPUPINIPIPININY 


Cc 

=—c 
—rn 
z- 
mo 


«SBTTL NICE_ROUTINE 


p++ 

; FUNCTIONAL DESCRIPTION: 

routine is the NICE eoqpense pores routine. ALL ce!is to 
y e 


s t 
NMLSPROCESS_NICE specify this routine as the action routine. 
CALLING SEQUENCE: 
PUSHAL N 


ICE ROUTINE 
PUSHAL NICE_MSG_DESC 
CALLS #2, G*NMCSPROCESS_NICE 


INPUT PARAMETERS: 
4(AP) = Address of a response message descriptor 


C9 C909 C9 0909 SI NI NII NII IO OOOO OO 


Pe Se Se Ge Se Ge Se Se Ge Ge Ge Se Be Ge Ge Ge Ge Se Se Ge Se Ge Se Sete Ge Ss 


4 3 
4 4 
r 5 
$ 
t Be 
4 0 
b35¢ 83 
t 898 
4 4 
4 5 
0354 859 
4 IMPLICIT INPUTS: 
8 r 8 NONE 
0324 580 ; OUTPUT PARAMETERS: 
0324 581 NONE 
03246 «65 g 
0324 5 IMPLICIT OUTPUTS: 
8 "4 2 : Error or success messages 
0324 586 COMPLETION CODES: 
0324 587 NONE 
0324 588 
0324 589 ; SIDE EFFECTS: 
0324 590 NONE 
gat ae 
$35 298 
0324 594 NICE_ROUTINE: 
OFFC 0324 595 -WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> 
56 04 AC 0 0326 596 MOVL 4(AP) ,R6 ; Get the descriptor address 
7 66 C 8 A 597 MOVZWL (R6),R7 : Get the response size 
O1E7"CF 04 A6 57 (C1 D 598 ADDL3 R7,4(R6),END_ADR 3 Save the response end address 
56 04 A6 DO 0334 599 MOVL 4(R6) ,R6 3; Get the response address 
58 8 9A 0338 600 MOVZBL (R6)+,R8 ; Get the status code 
02 5 91 0338 601 CMPB R8 ,#NMASC_STS_MOR ; If this is a more message then... 
03 12 0 60¢ BNEQ 108 
01B3 = 31 8 2 oR? 108 BRwW NICE_EXIT 5 occte it 
80 8F 8 91 034 605 CMPB R8,#NMASC_STS_DON ; If this is a done message then... 
1¢ 47 $06 BNEQ 
O1AA 3 49 6 BRW NICE_EXIT 3 oe exit 
4C 608 208: 
oe 91 4C 609 CMPB R8,#NMASC_STS_SUC ; If this is a success then... 
4 13 3 ef o19 BEQL CHECK_IT 3 «.-process the response 
3 o1¢ 3; The nice response is in error and it is reported to the user. 
59 FF A6 9A 51 614 MOVZBL -1(R6),R9 ; Get error code 
5A 02 Ab ODE 55 615 MOVAL 2(R6),R10 ; Get the error message address 
59 616 SFAO_S CTRSTR = ERR_MSG_CTR,- 
59s «461 TLEN = BUFFER _PTR,- 
¢ 913 OUTBUF = FAO_BUF,- 
9 61 P1 = R9,= 
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vate NICE_ROUTINE ety 7 84:33:93 UETP.SRCJUETNETSOO.MAR; 1 . (9) 
P2 = R10 
OOCF'CF OF 3 é ? PUSHAL BUFFER_PTR ; Push the string address 
1 OD me § 4 PUSHL ; Push the argument count 
00741132 8F DD 76 «66 PUSHL #UETPS_TEXT!STSSK_ERROR ; Push the signal name 
00000000 ' GF 3 «FB 7 624 CALL #3, G*CIBSSIGNAL ; Print the error message 
‘CE 3604) AB 8 625 BISW2 #C{R_CNT_BADM,FLAG : Set failure bit 
O1SF'CF 00000000'8F ° 6 § MOVL #SS$_BADPARAM, STATUS 3; Set return status failure code 
0162 1 4 ? § CHECK as NICE_EXIT 3; Thats it 
56 03 C0 94 629 “ ADDL2 #3,R6 : Skip error stuff 
59  O1A3'"CF DE 0397 630 MOVAL  CNTR_TBL,R9 : Set table address 
0049'CF 04 AA 9¢ = 631 BICW acre cn! BADM,FLAG ; Clear the bad flag 
O1A1'CF 66 81 Ai 6 § CMPW (R6) ;NODE_WRD : Is this a node response? 
03 is 0 Ag 6 BNEQ 10$ ; BR if not... 
- 2 4s 8 “ ° : 108 ADDL2 #2,R6 3 «else skip the node address word 
57 66 9A beng 6 § novia (R6) ,R7 3; Get the size of the name 
57 80 8F 8A bees e BICB #BIT?M,R7 3; Incase this is the executor node 
57 06 038 638 INCL 3; Add in the count byte 
OIBE'CF 66 57 28 0384 639 MOVC3 = R7,(R6) NAME 3; Save the name 
56 57 CO O3BA 640 ADDL2 R7,R6 ; Skip the name 
O3BD 641 CHK_LOOP: 
O1E7'CF 56 D1 038D oe6 CMPL R6,END_ADR ; ALL done? 
03 12 O3C2 64 BNEQ ; BR if not... 
O12F 31 0504 644 BRwW NICE_EXIT 3 «.-else bail out 
03C7 645 10S: 
58 86 3C O3C7 646 MOVZWL (R6)+,R8 3; Get cntrl desc 
00 EF O3CA 647 EXTZV #NMASV_CNT_TYP,- 
0c O3CC 648 #NMASS—CNT-TYP.- 
58 58 O3CD 649 8,R8 ; Get the counter type 
O3CF 650 20S: 
SA 89 3C bass 651 MOVZWL (R9)+,R10 3; Get a table code 
0O EF 03D2 $26 EXTZV #NMASV_CNT_TYP,=- 
0c 0304 65 #NMASS_CNT_TYP,- 
58 2A Ba08 654 R10,R1T : Get the counter type 
58 «58S 0 D? = 655 CMPL = RB, R11 : Is this it? 
48 (13 3DA 696 BEQL 80$ : BR if yes 
59 4 CO QO3DC 65 ADDL2 #4,R9 : Skip name pointer 
0000023F * 8F 9 O01 My 658 CMPL R9 ,#TBL_END ; End of table? 
E77 12 e6 659 BNEQ ; BR not 
59 O1A3"CF DE E 660 MOVAL CNTR_TBL,R9 3; Set table address 
OD EF ED 661 EXTZV #NMASV_CNT_WID,- 
02 EF O28 #NMASS_CNT_WID,- 
FE A6 F 6 ad e ; Get the counter width 
OS FE AG OC EI F 664 BBC #NMASV_CNT_MAP,-2(R6),30$ ; If not a mapped counter then carry on el 
56 602 0 4 ? 5 30s ADDL2 #2,R6 3 «Skip the map word 
02 01 58 ~ &F FB $89 CASEB R8,#1,#2 ; Skip the counter 
FF 668 40S: 
17° OSFF 96? -WORD 50$-40$ 
4S 401 6 9 WORD $-40$ 
22° 04 ; 67 .WORD $-40$ 
0154°CF DF 04 676 PUSHAL CASE_FAILED ; Push the string address 
1 DD 0409 67 PUSHL #1 ; Push the argument count 
00741132 8F DD 04 674 PUSHL #UETPS_TEXT!STSSK_ERROR ; Push the signal name 
3 0 41 675 PUSHL ; Push the argument count 
0290 1 413 676 BRW ERROR_EXIT ; Thats it 


M15 
UETNETSOO VAX/VMS UETP checker for DECnet counters 16-SEP-1984 01:29: AX/VMS Macro V04-00 age 19 
viet NICE_ROUTINE . ety 7 84:53:99 UETP.SRC SESNET SOO MAR: 1 . (9) 
4) 77 50$: 
38 b 418 bre INCL R6 3; Skip a byte counter 
FFA 1 rit 44 608 BRW CHK_LOOP 
56 602 9 418 681 ( ADDL2 #2,R6 3; Skip a word counter 
FF9OC 1 re ? § 70$ BRW CHK_LOOP 
56 04 0 8 1 6384 ; ADDL2 #4,R6 ; Skip a long word counter 
FF96 1 Be $ ? 5 aos BRW CHK_LOOP 
OD EF 0407 6 5 "  EXTZV.— #NMASV_CNT_WID,- 
Oe 429 6 8 #NMASS_CNT_WID,- 
58 FEA 42A 6 - . ; Get the counter width 
O3 FE A6 QO E1 04 690 BC #NMASV_CNT_MAP,-2(R6),90$ ; If not a mapped counter then carry on el 
56 C 4 ADDL #2,R 3 «e-Skip the map wor 
OS 0 Be $3) 90s: 2 2,R6 ip th d 
02 01 58 8F Be 5 $38 : CASEB R8,#1,42 3; Skip the counter 
439 694 100$: 
0017° % 9 695 -WORD 110$-100$ 
QOO1F* 06438 696 -WORD 1208-1008 
0027' 043D 697 -WORD 150$-100$ 
QO154"CF ODF 8 F 698 PUSHAL CASE_FAI‘LED ; Push the string address 
DD a8 699 PUSHL #1 ; Push the argument count 
00741132 8F DD 044 700 PUSHL M#UETPS_TEXT!STSSK_ERROR ; Push the signal name 
D 0448 £701 PUSHL # ; Push the argument count 
0263 1 Beee ie 1108 BRW ERROR_EXIT ; Thats it 
O1D7"CF 86 QA $436 704 "  MOVZBL (R6)+,COUNTER ; Get a byte counter 
000D = s 31 tt ree 1208 BRw 140$ 
O1D7"CF §=86)—3¢ 0458 707 "  MOVZWL = (R6)+, COUNTER : Get a word counter 
0005 1 Bo 28 re 1308 BRw 140$ 
01D7"CF §686—si0 nies £10 saad MOVL  (R6) +, COUNTER : Get a long word counter 
08 12 0465 71 "  BNEQ 1508 
59 O1A3'CF be 0467 ig MOVAL CNTR_TBL,R9 ; Reset the table address 
FF4E 1 ret: ay ones BRW CHK _Coop ; BR if counter was zero 
0049°CF 04 A8 a¢f £18 "  BIsw2 #CIR_CNT_BADM,FLAG ; Set the bad one whee 
O1DB'CF O13E'CF DE 0474 71 MOVAL > tYP ; Set the default entity type of node 
5A O1AF'CF OD 478 £8 MOVAL rats NAME ,R10 3; Save the node name address 
6A 9 4 71 TSTB (R10) ; Anything there 
05 12 04 2 720 BNEQ 160$ ; BR if yes else... 
5A O1B9'CF DE ; 3 1 1608 MOVAL NODE_ADR,R10 3 ...use the node address 
OIF ge Mee ee 4 ? 9 f 5 ; nue. ho 6 ; Set for node THRU circuit format 
, 18 FF AQ 6 E 297 725 BBC i? =T(R9) .170$ ; Check to see if we guessed right 
1DB‘CF 144'CF ODE rH’ 7 § MOVAL CIRCUIT, TYPE : If not set type to circuit 
ae O1ac ct D 4A 7 MOVAL yPEf ; Set up for circuit to node format 
Ques cr A 00 O4AA 7 : MOVL R16 TwPE2 
A O1BE'CF DE AF g Fie MOVAL NAME,R1 
4B4 731 ; SFAO_S CTRSTR = COUNTER_MSG,- ; Generate a bad counter message 
4B4 7 § OUTLEN = BUFFER _PTR,- 
484 7 OUTBUF = FAO BUF,- 
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Vian 500 NICE ROUTINE g- EE 1382 4 3$8:95 YOETP SRC SEINE SOO MAR: 1 . 2) 
4B4 4 P1 = TYPE,- 
4B4 5 P = R10,- 
4B4 : P = TYPE1,- 
484 7 P4 = TYPE2,- 
484 7 8 P5 = (R9),- 
4B4 7 P6 = COUNTER 
OOCF*CF ODF Q4DB 740 PUSHAL SyrreR Pts ; Push the string address 
1 DD Q4DF 741 PUSHL ; Push the argument count 
00741133 8F DD rf? og PUSHL ayetes TEXT!STSSK_INFO ; Push the signal name 
00000000 ' GF 3 FB O4E 74 CALLS #3, G*CIBSSIGNAL ; Print the error message 
59 OA3'CF DE bees 744 MOVAL CNTR TBL,R9 3; Reset the counter table pointer 
FEC 31 O4F 745 BRW CHK _CooP ; Thats it 
O4F6 bg 
QO4F6 747 NICE_EXIT: 
04 O4F6 748 RET 


KILO ™MIOWZ BO KC HM TOMMIOWZ Sl ACK TO WMMIOOOZ Sr ACH ITO MIOOZ Sr ACK TOO 
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vba System Service leeselen Handler mits 9) 352: 03 UETP.SRC CE out Soo MAR: 1 ° io) | 


rif f 0 en -SBTTL System Service Exception Handler 

4F f : FUNCTIONAL DESCRIPTION: 

4F 3 This routine is executed if a syetes service or RMS error occurs or 
rit d ; if a LIBSSIGNAL system service is used to output a message. 
4F?7 6 t CALLING SEQUENCE: 

rit at 3 Entered via an exception from the system 

O4F7 528 : INPUT PARAMETERS: 

ire £69 3 ERROR_COUNT = previous cumulative error count 
4F7 ree : AP ----> 2 

4F7 76 : ' Swe ST See ee ! 

Qcr fee 3 : SIGNL ARY PNT : 

Oar? 766 ; | MECH ARY PNT | 

O4F7 768 : i 4 i “ 

O4F7 769: : | eecoossessecsse i 

bees aa ; ' ESTABLISH FP 

Oar? re : i DEPTH | Mechanism Array 
O4F7 774: i RO i i 

04F7 775 s ! ecceeeceeeooooan ! ' 

bers 776 ; ' R1 ! v 

4F7 «777: | eoccowesstanwce  : apieubamiien 

O4F7 778; ' N { q 

O4F7 779: | cecesencnmnens i ' 
bees 781 ; ' CONDITION NAME 
Our? Be ; i N=3 ADDITIONAL! = Signal Array 
gore 784 : : LONS WORD ARGS: 
Ger 785 ; i PC i i 

4F7 736 : | eceewcceccecece ' \ 

GF? = 787 ; PSL i v 
bees 748 : S sceepeseniatenapanedenting | encosenss 

pore 789 3 IMPLICIT INPUTS: 

4F7 790 ; NONE 
bees 791 ; 

4F7 £6 ; OUTPUT PARAMETERS: 

4F7 860793; NONE 

4-7 794; 

4F7 795 ; IMPLICIT OUTPUTS: 

4F7 796; NONE 

4F7 797; 

4F7 £8 ; COMPLETION CODES: 

4-7 799; NONE 

4F7 0; 

4F7 1 3; SIDE EFFECTS: 

47 ; : NONE 

4F7 ;-- 

rh ¢ SSERROR 

OFFC 4F7 6 * WORD “M<R2,R3,R4,R5,R6,R7,R8,R9I,RIO,RII> =; Entry mask 
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~$EP=1984 94:93:57 UETPeSRCSUETNET S00. MAR; 1 


4F 7 
4F os SSETAST_S ENBFLG = #0 ; 
1 dd 05 PUSHL “#1 : 
50 Q" D1 «(05 10 CMPL  S“#SS$_WASSET,RO ; 
13. 0507 = 811 BEQL 10$ ; 
6E D4 ; 3 1 on CLRL 3s (SP) : 
508 6814 " « $SETSFM_S ENBFLG = #0 ; 
01 DD 0514 815 PUSHL “#1 ; 
50 9" D1 216 18 CMPL SA4SS$_WASSET RO ; 
| 02 13 051 1 BEQL 0$ i 
6E 4 218 18 sad CLRL (SP) ; 
56 04 AC «OO 0510 0 ss MOVL-~—s CHFSL_SIGARGLST(AP),R6 ; 
59 04 A6) «67D «0521 1 MOVO cHFSL S1G_NAME(R6) RO 
Bm Be Be hy BR Hie. 
00000074 8F 5 0528 824 RO, MUETPS_F FACILITY 
16 i 052— 825 BNEQ 308 F 
66 02 C2 0530 826 SUBL2  #2,CHFSL_SIG_ARGS(R6) 
053 8 7 SPUTMSG_S MSGVEC = ; 
05 8 CHF §L_S1G_ARGS(R6) ,- 
0533 += 829 ACTRIN = 808 
25 11 0544 30 a BRB 40$ ; 
59 00000000'8F 01 0546 3¢ "  CMPL = #SS$_SSFAIL,R9 : 
36 «12 0540 3 NEQ 508 : 
dc © Beet Bae CHPIN  ASTSSSCEACIND. = ; 
00000000' 8F 3A . 0350 836 sae R10. ARASS_ FACILITY 
5A 0000000 8F CA 055A 838 BICL2 #*XF0000000,R10 : 
08 A6 04 39 0561 839 MATCHC #4,CHFSL_SIG_ARG1(R6),- : Is 
0020°¢r $363 Be anna ANS Rey TABLE ; 
1A 13 (0569 B43 BEOL NOs ; 
or ea Stee Bee Oe #°M<RO> 
ia 3 D 843 SSEIsen.§ S “nenose - : 
5 § BS SSETAST § ENBFLG = RO Pa 
50 00° pO 0581 848 MOVL “3958S NORMAL RO : 
04 : 4 ri 50s RET 5 
O1ISF'CR 59 00 05 3 51 " — MOVL ~=—saR9,, STATUS ; 
58 4324 «(058A 2 CLRL R : 
59 00000000'8F 1 05 ; 5 CMPL  #SS$_SSFAIL,R9 : 
oda 3 38 SCE TMSG. $ MSGID = : 
5 ; 36 MSGLEN = OI FER PTR,- ° 
A 5 5 BUFADR = FAO_BUF, ~ 
5 38 FLAGS = 
595 85 OUTADR = nse BLOCK 
5 60 TSTB. = MSG_BLOCK+ ; 
5 6 61 BEQL 3 
5 6¢ PUSHAL BUFFER, PTR : 
5B6 6 PUSHL 5 


Disable AST delivery 

Assume ASTs were enabled 
Were ASTs Yo Be 

BR if they 

Set ASTs to vrenetn disabled 


Disable SS failure mode 

Assume SS failure mode was enabled 
Was SS failure mode enabled? 

R if it was 

Set SS failure mode to remain off 


; Get the signal @ reer eeinter 


Get NAME 


ry in 
; Is this a pha from LIBSSIQNAL? 


; BR if this is not a UETP exception 
d PSL 


Drop the PC an 


; Print the message 


; Restore ASTs and SS fail mode 


RMS failures are SysSve failures 
BR if this can't be an RMS failure 
Is it an RMS failure? 


; BR if not 
; rie control bits from status code 


t an RMS failure for which... 


«.-no AST can be delivered? 
BR if so - must give error here 


Restore SS failure mode... 
Restore AST enable... 


Supply a standard status for exit 
Resume processing (or goto RMS * ERROR) 


; Save the status 
; Assume for now it’s not SS failure 


But is it a System Service failure? 


; BR if not - no special case message 
; Get SS failure code associated text 


Get FAO .'§ count for SS failure code 
Don't use SGETMSG if no SFAO args... 
«else build up.. 

o+-@ message describing... 


ror 


vss 


00741130 
00 
38 


| 


WOoNneS —-PF> VWW>T 


50 00000000'8F 
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System Service Exception Handler 


DD B8 4 PUSHL 
oe ke 
dO af 8 MOVL 
11. O5C °8 BRB 
5¢ 8 60$: 
DD 5¢ 0 PUSHL 
DO OSCA 71 MOVL 
5¢D 1 70$: 
cs 5¢D 7 MULL 
Ss 501 74 SUBL 
504 75 MOVC 
¢ 509 6 ADDL 
1 50D 7 BRW 
05E0 78 
B3ER 79 80$: 

0004 ES 80 . WORD 
dO be 81 OVL 
3C 05E6 oe6 MOVZWL 
DO OSEB 8 MOVL 

OSF1 884 $PUT 
O5F1 885 
DO 0600 886 MOVL 
04 0607 887 RET 


R10 


thy 


T 


ae 


WeTSey 
ee SEVE 


“9:P-1 


~SEP= 


1986 04: 


SEVERITY,= 
RITY, (SPS 


XT 


FSL_SIG_ARGS(R6),R7 ; 


M1 ~S1G 
EX XT? 


zDD 
~ 


(0G_RAB+RABSW_RSZ 
,LOG ~RAB*RABSC RBF 


L 
RMS “ERROR 
$_NORMAL ,RO 


35:57 


«.ewhy the System Service failed 


L_SIG_NAME (R6), (SP) a ae 
“ARGS (R6) .-(SP) 


AX/VMS Macro V04- o8° 
UETP.SRCJUETNETSOO.MAR; 1 


Give the message... 
.+the correct severity code 


Pee 4) 


Count the number of args we pushed 


ci. SS failure code 


ount the number of args we pushed 


Get are ree length in bytes 


the stack 
; Push the current arg count 


PUTMSG action routine 


e the current signal array... 


Get the message descriptor address 


Get the message size 
Set the message address 


Write the log file 
Set the return status code 
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-SBTTL RMS Error Handler 


p++ 
; FUNCTIONAL DESCRIPTION: 
: This routine handles error returns from RMS calls. 


; CALLING SEQUENCE: 
: Called by RMS when a file processing error is found. 


INPUT PARAMETERS: 
NONE 


oa 
OOOOCCOO 


IMPLICIT INPUTS: 
The FAB or RAB associated with the RMS call. 


OUTPUT PARAMETERS: 
NONE 


PAARAAAAA OA AOA ASO 


IMPLICIT OUTPUTS: 
Error message 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Program may exit, depending on severity of the error. 


RMS_ERROR: 
. WORD 


COOOCCOCOCSOOCOOCOOOSOOOOOOCOOoOOO 


Wow—m \S \ 0900000000 00 09 0D 0D 00 C0 OS CD CD CD: 


WOOO ODODODOOOOOOOOOOOOOOOOOO0D0O0O00O0000000000000000.00000 0000000000 00 0D 0000 


BEEF PWN WANWAIWIAIRIPIPINPIDINDNIPININPID) 3 2 | DOO OOOOOCOOCOC OOWOWOOOOOOOOE 
EWN OO NAME WN SO OD NAME WIN 9 OD NAME WN OS OO NAU EWN 0 OONAULS WOO 


—s 
~ 
ODOOOOOSOOOOSOOSOSOOOSOOOOOOOOOOOSOOOSOSOOSCOOCOOOOOOOOOOO 


6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
é 
OFFC “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 
56 04 AC 00 06 MOVL 4(AP) ,R6 ; See whether we're dealing with... 
66 O03 91 60 CMPB #F ABSC_BID,FABSB_BID(R6) 3_.+-@ FAB or a RAB 
16 61 BNEQ 10$ ; BR if it's a RAB 
57 OO6D'CF DE 061 MOVAL FILE,R7 3; FAB-specific code: text string... 
58 56 D0 061 MOVL R6,R ; «address of —e 
OC A6 DD 061 PUSHL FABSL_STV(R6) : ..STV field for error... 
08 A6 DD O61E PUSHL FABS$L_STS(R6) 3 «STS field for error... 
O1SF°CF 08 A6~ 00 os! MOYL FABSL_STS(R6) ,STATUS i ..-and save the error ccde 
15 #11 f 108 BRB RMS_COMMON ; FAB and RAB share other code 
57  O079"CF DE 0629 MOVAL RECORD,R7 ; RAB-specific code: text string... 
58 3C A6 DO 06 OVL RABSL_FAB(R6) RB ; ..-acdress of associated FAB... 
3 A6 DD 06 PUSHL rt te bb fi 3 «STV field for error... 
08 A6 DD (06 PUSHL RABSL_STS(R6) ; «STS field for error... 
O1SF°CF 08 A6~ DO : we ~mene RABSL_STS(R6) , STATUS 3 «..and save the error code 
5A 34 A8 9A 06 af MOVZBL FABSB_FNS(R8),R10 ; Get the file name size 
64 CTRSTR = RMS _ERR STRING,- ; Common code, prepare error message... 
64 OUTLEN = BUFFER PTR,- 
64 OUTBUF = FAO_BUF,- 
64 P = R7,= 
64 Pg = R16,- 
64 P = FABSL_FNA(R8) 
OOCF'CF ODF 5 PUSHAL BUFFER PTR 3 «-.and arguments for ERROR_EXIT... 
4 DD 066 PUSHL 3 «ee 
00741130 8F DD 066 PUSHL #UETPS_TEXT 3 ccs 


SIGE SLGENY AMECEACBSETSGBOeans1 "09° GB 
ITY 
ITY 
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E 


9 EF 68 94 EXTZV #STSS$V_SEVERITY,=- 
6A 94 4 RITY,=- 
59 O15F'CF 668 ae8 STATUS,R 3 «eget the severity code... 
6€ 59 88 og 94 BISB2 9, (SPS 3 «-.and add it into the signal name 
9 D 0672 950 PUSHL #5 ; Current arg count 
003C 1 0674 951 BRW ERROR_EXIT 
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~SBTTL CTRL/C Handler 


$d 
FUNCTIONAL DESCRIPTION: 
This routine handles CTRL/C AST's 


CALLING SEQUENCE: 
; Called via AST 
INPUT PARAMETERS: 
NONE 


; IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 
; COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


t OUTPUT PARAMETERS: 
: NONE 


WDODOOOOOOOOOOODOOOVOVOVOVOOOVOOOOVOOOOOOOOOOO 
C9 CS CS C9 09 09 CD 09 09 09 SI NIN SIN NSS SNP PAA AAA AAA OAOUIMIUMIUIUIUIU 
WOO NAME WN 9 OO NOAU EWN 0 OONAUE WP OOOVNOUIE WW 


DD DD. DS D> D-DD DO DDD DOD DDD A AAPA AAA AA AAA AAO 


SOOCOCOCSOOOCOOOOOOOOSOOSOOOCOOCOOOSDOOOOOOOOOOOO 


CCASTHAND: 
OFFC ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 
OO4C'CF OF PUSHAL CNTRLCMSG ; Set message pointer 
DD PUSHL ; Set arg count 
00741130 8F DD PUSHL #UETPS_TEXT!STSSK_WARNING ; Set signal name 
0 oD PUSHL #0 ; Indicate an abnormal termination 
OOOF *CF OF PUSHAL TSTNAM 2 waa 
DD 88 PUSHL i ae 
007410E0 8F OD 8p 990 PUSHL sUETPS ABENDD!STSSK_WARNING ; ... 
00000000'GF 07 FB 9 991 CALLS #7,G*LIBSSIGNAL ; Output the message 
0049'CF 02 AB 069A 99 BISW2  #CONTROL_CM,FLAG : Set CTRL/C flag bit... 
D0 069F 99 MOVL #<SS$_CORTROLCE*C7- : ...and exit status 
AO 994 'STS$R_WARNING- 
O15F°CF  10000000°8F AO 995 iSTS$M~INHIB_MSG>, STATUS 
AB 996 SEXIT_S STATUS ; Terminate program cleanly 


Page 
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4:25 


~SBTTL Error Exit 


p++ 
; FUNCTIONAL DESCRIPTION: 
5 This routine prints an error message and exits. 


: ceomag ames 
Vx error status value,STATUS 
Sysiix error specific information on the stack 
PUSHL current Srpment count 
BRW ERROR_EXIT 


? 


23 3 3 3 SI BOOS 


1000 
! 1 
1008 
1004 ; 
: a 
1 $ s 
0683 1 8 i 
6835 1 3 INPUT PARAMETERS: 
$08 ! 9 ; Arguments to LIBSSIGNAL, as above 
0683 1 § , IMPLICIT INPUTS: 
0683 1 ; ONE 
0683 1014 ; 
0683 1015 ; OUTPUT PARAMETERS: 
age ! $ ; Message to SYSSOUTPUT and SYSSERROR 
0683 1018 ; IMPLICIT OUTPUTS: 
0683 1019 ; Program exit 
0683 1020 ; 
0683 1021 ; COMPLETION CODES: 
0683 10 § 3 NONE 
0683 1023 ; 
0683 1024 ; SIDE EFFECTS: 
0683 1025 ; NONE 
0683 1026 ; 
0683 1027 ;-- 
pe83 1028 
068 10 9 ERROR_EXIT: 
set 1030 
0683 1031 SSETAST_S ENBFLG = #0 3 oer ce play, havoc with messages 
15 0049°CF 06 €E0 pees 10 § BBS “#BEGIN_MSGV,FLAG,10$ 3 Fi n’' msg nes already been output 
D4 06C2 103 CLRL -(SP) 3 ioe the time stamp flag 
OOOF'CF ODF 06C4 \o3e PUSHAL TSTNAM ; get the test name 
DD 06C8 1035 PUSHL #2 ush the argument count 
00741039 8F DD O6CA 1036 ~ PUSHL #UETPS bp dia _succts§ Set the message code 
00000000'GF 04 FB 9609 1037 itn CALLS #4,G*LIBSSIGNA Print the startup message 
0177°CF O08 8E C1 deb? 1 3 ADDL3 = (SP)+, o. gARG. COUNT ; Get total # args, pop partial count 
O15B°CF 06 O6DD 1040 INCL ERROR_ ; Keep running error count 
00 OD O6E€1 1041 PUSHL ; Push the time parameter 
OCOF'CF ODF —E3 1 $5 PUSHAL TOTMAR ; Push test name... 
ge DD O6E7 104 PUSHL ++-arg count... 
007612 F DD Q6E9 1044 PUSHL yA ~1 aia ERROR ont A signal name 
O15B'CF DD O6EF 1045 PUSHL ERRO R_COU ; Finish off arg list... 
OOOF ‘CF DF 3 1 28 PUSHAL INA 
ge DD F 104 PUSHL ; 
90760066 er DD O6F9 1 7 PUSHL #UETPS ERBOXPROC : STS$K ERROR’: “ester error box message 
00000000 ' GF "CF «FB Fe 49 CALLS  ARG_COONT.G*LIBSSIGNAL~ ; Truly'b 
O1SF'CF 10000000 8F C8 +08 1051 BISL #STSSM_INHIB_MSG,STATUS ; Don't print _nessoges twice! 
711 +1052 SEXIT 5S STATUS” : Exit in err 


UETNETSOO 
VO4~600 


m< 
x > 
4 
on 

< 
ac 
a-m 
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-SBTTL Exit Handler 


FUNCTIONAL DESCRIPTION: 
This routine handles cleanup 9n exits. 


CALLING SEQUENCE: 
Invoked automatically by SEXIT System Service. 


INPUT PARAMETERS: 
Location STATUS contains the exit status, FLAG has synchronizing bits. 


IMPLICIT INPUTS: 
NONE 


reve 8, 


OOOOCOCCCOCOCO IFS 


OUTPUT —— 


IMPLICIT OUTPUTS: 
Various files are de-accessed, the process name is reset, and any 
necessary synchronization with UETPDEVO1 is carried out. 


COMPLETION CODES: 
NONE 


AUER 9 OONAUS WN OOONOUnS 


EXIT_HANDLER: 


-WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> ; Entry mask 


| 

| 

| 

SIDE EFFECTS: | 

NONE | 

| 

OFFC | 
| 


WONT AD OWMMAAIOOOOOAIOAOOOOAANIOOOOAOOOOOAMOAOOAAOOAO 


OOOOCOCOCOCOCOCOCOCOCOCCOCOCOCOOOCOOOCOOOOOOCOO 


MEW SO OONOUS WN —OOen 


SSETSFM_S ENBFLG = #0 3 Turn off System Service failure mode 

SSETAST-S ENBFLG = #0 3; We're Lat ge - no re eer 

SDISCONNECT RAB = INI_RAB : Disconnect RAB fro e FAB 

$CLOSE = INI-FAB ; Close the UETINIDEV. DAT tite | 

SDISCONNECT RAB = LOG_RAB : Disconnect the RAB from the FAB 

SCLOSE AB = LOG-FAB : Close the UETNETSOO. LOG te 

SSETPRN_S PRCNAM = ACNT_NAME ; Reset the process name 
04 RET 3; That's all folks! | 

| 


~ END UETNETSOO 
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Symbol table 
$$.TAB 
BUFFER_PTR 
CASE_F 

CCAST 
DIBSB_DEVCLASS 
DIBSK ‘ates 


UETNETSOO 
CHECK 
CHF SL 


$$. TABEND 
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Symbol table 
= 1 
eva as amt bate : Hs8t 
NMASC~CTNOD~RUL : i: SHRS~OPEW : 19 | 
NRASE"EN : 2 SHRT-RPRTM = 00 01 
NRASE-ENT-N = 9000 : SHRT-RPRTV = 00000000 | 
NMASCIENC™ = 90000014 5$$_BADPARAM seceness 5 | 
NMASe “OMAR = 00000003 $$$” CONTROLC eeeeeeee X05 | 
NMASC"OPIAF COU = 9000009 SS$-CONTRO aooeone 2 | 
$C~STS_DON = FFFFFF SS$ NORMAL erssvoss | 
NMASC~STS_MOR . 9000000 SSS-NOTRAN andl it | 
NMASC“STSSUC = 000000 SS$-SSFAlL ocoemn Yad | 
SSTCNT~TYP = 900000¢ $85 4AS seaggee? a 3 | 
NMASNENT“RAP = 9000008 satis ‘STR OOS | 
NRASVTENT “TYP = 00000000 STS$K ERROR s 9000002 | 
NRASY “OPT TIEE = 90900004 STS SK SUCCESS = 90000001 
“W S 
egy AE oe Be ST SSH “INHIB ASG = 1900000 
wilt aee Q00000A8 R32 SR eee = 09000008 | 
oe = 00000000 STS$V~FAC_NO = 00000010 | 
~ 0000013E R 02 STS$V "SEVERITY = 90000000 3 
on soe eT Q000ErE Ry 8 
MODENA” BoooTAr 03 SYSSCLOSE eeeeeere GX 05 
ne Sy st ttahy 8 03 SYSSCONNECT eeaeeeee GX 05 
NODCENT. 6 SYSSCREATE eeeeeeee GX 05 
ae lees = 09009008 SYSSDCLEXH eeeeeeee GX 05 
NO RNG Ket a tts 02 SYSSDISCONNECT eeeeeeee GX 05 
NO_RMS_AST TABLE 00000020 R svssolst eee) ae 
NRAT_LENGTA = 00000014 ss SYS$EXI ecceesce GT 
orsscvt Tht = 9000023F R02 SYSSGET eeeeeeee GX 05 
ae = 80008 e 1R 02 SYSS$GETDEV eeeeeees GX 05 
Sag" : itt SYSSGETMSG eeeeneee GX 05 
nite 2 itttit SYSSOPEN eeeeeene GX 05 
RABSC~BID = 90000001 S1S$0PE oe Se 
RabSe meee = Op000 SYSSPUTMSG eeeeeeee GX 05 
arta = 09009018 SYS$Q10W eeeeeeee GX 05 
PABST FAB z $60 $03 SYSSSETAST eeeeeeee GX 05 
st fae = ooo go38 SYSSSETPRN eeeeneee GX 05 
bprtngent atti SYSSSETSFM eeeeenee GX 05 
stn ees . itt 4 SYSSTRNLOG eeeeeees 05 
RAB STV = bp008 TBL. END 000023F R- 02 
aprtorme dey . TBL7SIZE = 90000014 
RECORD 29000 R 02 TEXT BUFFER = 00 084 ; 
RMSSK FACILITY = 00000001 A THRU 00 ate R 2 
meee eveccece of 6 TSTNAM 0 OOF 0 
eee ehae coeseeee fk TTCHAN 0000 R 0 
enee Fae ececeese TTNAME 000A R 0 
part Mg ereceeee TNAME_L = 0 
RASSTRAB SS cveceeee x ¢ TTNAME_ROPTR : s 8 
RMS_COMMON OO0063E R 5 TTNARE RUPTR 002 R 
RASTERRCS 4 R 2 TYPE1 1DF R 
pt = 99001060 TYPE? 165 Re 
SHRS~BEGIND = 1 UE TNETSOO 
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Symbol table 


UETP s ort of 
UETP$_ABENDD = 0074 
UE TP$_ABORTC = 0074 
UETPS_BEGIND = 0074 
UETPS$_EN = 0074 
UETP$_ERBOXPROC = 0074 
UETPS"FACILIT = 00000074 
UETP$_OPE = 0074 8 
UE TPS TEX = 007411 
ZERO QOO0019F R 02 
pwr omen san ws eoacaee + 
! Psect synopsis ! 
go wenmecwen are wcemns + 
PSECT name Allocation PSECT No. Attributes 
‘ 90000000 <( 0.) 00 ¢ O.) NOPIC 
SABSS 00000000 ( q- 01 ¢ 1.) NOPIC 
RODATA 00000481 ( 1153.) 8 ( ‘? NOPIC 
RWDATA 00000314 ( 788.) 03 ¢ -) NOPIC 
SRMSNAM QOOOOOIA ( 26.) 04 ¢ 4.) NOPIC 
UETNETSOO 00000768 ( 1896.) 05 ¢ 5.) NOPIC 
bw coeme nen see eee nen mewn $+ 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization — 7 00:00:00.1 0p 00: 00-3 
Command rrocessing 136 es Se 00:00:03.26 
Pass 490 00:00:18.7 00:00:40.96 
Symbol table sort 0 00:00:02.12 00:00:03.31 
Pass 2 204 00:00:04.31 00:00:08.88 
Symbol table output 29 B80: 00: 88 00:00:00.55 
Psect synopsis output 00:00:00.9 00:00:00.03 
Cross-reference output bs Be 9 et 99 = 8:99 -0 
Assembler run totals 890 0:00:26.29 00:00:57.91 


ine working set yo was 2000 pages. 

1037 pages) of virtual memory were used to buffer the intermediate cod 

There were 90 pages of symbol table space allocated to hold 1519 non-local and 
4 object records in Pass 2. 


00 bytes (20 
1095 source Lines were read in Pass 


« producin 


50 page» of virtual memory were used to define 23 macros. 


e. 
41 local symbols. 


AX/VMS Macro V04-00 
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Page 31. 
. (14) | 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE RD WRT NOVEC 
NOSHR NOEXE RD NOWRT NOVEC PAGE 
NOSHR NOEXE RD WRT NOVEC PAGE 


RD 
NOSHR EXE RD NOWRT NOVEC PAGE 


M16 | 
UETNETSOO VAX/VMS UETP checker for DECnet counters 16=SEP 4 01:29: AYX/VMS Macro V04-00 o 
: ore eE 1 88e buises5) FOETETSRCSGE SNe econcmaR:1 age day 


VAX-11 Macro Run Statistics 


pom n oem ne weer ec ee we seen ene =} 


! Macro Library statistics ! 


ee ee es 


Macro Library name Macros defined 
$25380Uh psu lee NMALIBRY.MLB; 1 1 
JUETP.MLB; 1 1 
LIB.MLB; 1 9 
$2558DUR Syst IBISTARL ET.MLB;2 ; 
reracs (atl. Libraries) 3 


1809 GETS were required to define 39 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:UETNETSOO/OBJ=0BJ$:UETNETSOO MSRC$:UETNETSOO/UPDATE=(ENHS$:UETNETSOO) +EXECMLS$/LIB+LIB$:UETP/LIB 


T CORPORATION 


mnaiy AH-BT13A-SE 
4) PROPRIETARY 


VAX/VMS V4.0 


